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ora in 
obonamento 


nell'edizione 
per il tuo 
computer 


D primo settimanale di software su corta por il tuo 



personal computer. Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 

Nàto in odiatone unica, per i più diffusi homo 
e personal computer, dal 4 Aprile, allo 
stesso presso, sono in edicola le Torsioni 
dedicate ai calcolatori Commodore. 

Sinclair e un'edistone esclusiva 
dedicata ai personal Apple, Texas 
TI99/4A e ai sistemi USX. Puoi anche 
abbonarti dal 4 Aprile al 31 Dicembre 
ricov er ai cosi, comodamente a casa con 
un notevole risparmio, 36 numeri del 
settimanale. Chi si abbona riceverà ogni 
15 atomi 2 numeri di PaperSoft in 
anticipo rispetto all'uscita in edicola. 

NON PERDERE QUESTA OCCASIONE! 

Compila subito il coupon sotto riportato 
e spediscilo a: 

\lsoft... 

Viale Bertelli, 5 - 20124 Milano 


I 


T«0toìdo a bbonamanlo a PAPERSoftda inviare In buata chiusa a: 

J.aoft- Vtaia Ree** 6 - 20124 MILANO 

• • 

V. 

□ Abbonamanlo a 38 nomar! di PAPER Soft al prazzo a pa rt ala di L 30.000 anziché I 

e 

□ ed bl one Sinclair (PS01) □ adizione Commodore (PC01) □ «telone Appèa/T199/MSX (PV01) 

□ oontand ata pad □ assegno a tag al o n.- 

□ ho varialo l'importo aul c.c.p. n. 10446204 i m a ala lo a J.aoO- MILANO 

Cognome ■ 


Città 


CAP 


Prov. 
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Stop Bus 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola * rem ” seguita da un nume¬ 
ro, detto checksum; non copiare 
questa parte della linea; che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
C! 6 e Plus/4). Per riattivarlo batti: 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il 06 e il PLUS/4; 
SYS 40704 per il C 64. 
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STOP NI pcrCMtVKM 

1 00 POKE55,0:POKE56,PEEK(56)-1 :R-PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI-RTOR+132$READAsCK-CK+AsIFA»999THENA»R/256 
120 POREI » A:NEXT 

130 IFCK022689THENPRINT" {GIU' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 

Q # W . 

200 DATAI 73,36,3,201 ,32,208,1,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141 ,36,3,169,999,141,37,3 
230 DATAI 69,0,133,254,96,32,87,241 ,133 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,13,32,210,255,165,214,141 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,1 8,32,210,255 
300 DATAI 69,58,32,210,255,166,254,169,0 
310 DATAI 33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,214,76,55,999 


STOP SUO per CI* « PLUS/4 

100 POKE55,0:POKE56,63SPRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 16128T016260 : READA:CK=CK + A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA”:END 

130 SYS16128SPRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO•"S NEW 

200 DATAI 73,34,3,201 ,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141 ,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,133,6,96,32,232,235,133 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,13,32,21 0,255,165,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,255,169,18,32,21 0,255 
300 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,172,33,63,192,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,21 0,255,32,21 0,255,173 
340 DATA251,3,133,205,76,55,63 
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Chi non conosce il famosissimo 
gioco di carte “Spacca ventuno"? 
Adesso puoi giocare con un super 
avversario: il computer VIC 20. 

Il fine di questo gioco è di fare 21 
o di avvicinarti il più possibile. 
Nella versione computerizzata di 
questo gioco bisogna fare atten¬ 
zione a due cose: la prima è che il 


5 REM SPACCA 21 
10 GOSUB3000 
15 PRINT"{CLR}" 

20 POKE36879 f 30 

25 BB= 50 

55 GOTO4600 

60 GOSUBl900 

65 GOSUB3600 

70 GOSUB2100 

75 GOSUBl500 

80 GOTO2000 

1200 GOSUB3500 

1205 GOTO1260 

1210 POKE36879 r 8 

1217 IFCT<22THENl 300 

1220 PRINT"{CLR}{WHT}OLTRE 21 

1225 GOSUB3500 

1230 BB s BB-CB:IFBB<1THEN2500 

1240 CT»0:ZU=0:V=0 

1245 CV=0:ZT*0:NC=0 

1250 GOTO60 

1260 IFCS=1iTHENl280 

1270 GOTO!210 

1280 CT-CT-10 

1290 CS=0 

1295 GOTO2000 

1300 IFCT>21THENl200 

1310 INPUTC 

1320 IFC-2THEN4000 

1325 GOSUB4700 

1330 GOSUB3600 


denaro viene assegnato al l'inizio 
del gioco in misura di $50, la se¬ 
conda è che il jolly può valere sia 

I sia 11, se si sceglie 11 e si va oltre 
21 il jolly automaticamente diven¬ 
ta 1. 

II gioco finisce quando uno dei 
due giocatori riesce a sbancare l'al¬ 
tro e... buona fortunaI 


:rem 39 
:rem 164 
:rem 202 
:rem 49 
:rem 141 
:rem 109 
:rem 176 
:rem 180 
:rem 170 
:rem 178 
:rem 99 
: rem 11 
:rem 202 
:rem 104 
:rem 132 

1 HO VINTO!!{BLU}":rem 192 

: rem 18 
:rem 109 
:rem 30 
:rem 95 
:rem 103 
:rem 135 
:rem 199 
:rem 196 
:rem 207 
:rem 204 
:rem 125 
:rem 152 
:rem 250 
:rem 22 
:rem 16 
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1335 

CB-CB+IB 



:rem 

201 

1337 

GOSUBl500 



s rem 

20 

1340 

GOTO2000 



:rem 

195 

1500 

V-V+4 



:rem 

14 

1510 

POKE7832+V,ZX 



:rem 

41 

1520 

POKE38552+V,0 



:rem 

219 

1530 

POKE7833+V,ZV 



:rem 

42 

1540 

POKE38553+V,ZL 



:rem 

84 

1550 

ZU-ZU+1 



:rem 

194 

1560 

IFZU>1THENl 600 



srem 

111 

1570 

GOSUB3600 



srem 

22 

1580 

GOTO!500 



srem 

205 

1600 

RETURN 



srem 

167 

1900 

PRINT"{CLR}TU HAI";BB; 

"CHIPS","QUANTO SCOMMETTI" 



• 



srem 

91 

1905 

POKE36879,30 



srem 

158 

1910 

INPUTIB 



srem 

230 

1920 

IFIB>BBTHENl910 



srem 

162 

1930 

IFIB<1THENl910 



srem 

78 

1940 

IFIB>5THENPRINT M TROPPO1ll 

":GOTOl910 

srem 

224 

1950 

CB-IB 



srem 

28 

1960 

RETURN 



srem 

176 

2000 

PRINT"{HOME}{ 12 GIU'}TOTALE-";CT:PRINT 

"TU HAI"; 

BB; " 


CHIPS." 



srem 

179 

2010 

PRINT"QUESTA MANO VALE 

$" 

CB 

srem 

99 

2020 

PRINT"VUOI .","1 

-CARTA","2-STARE" 

srem 

193 

2030 

GOTO!300 



srem 

194 

2100 

PRINT"{CLR}{RVS}{ 2 SPAZIATO DANDO LE < 

CARTE 



{ 2 SPAZI}{ 3 GIU’}" 



srem 

200 

2105 

GOSUB3500 

» * 


srem 

16 

2110 

PRINT"{RVS}{RED}{DBS}{ 

3 

SPAZI}{DES}{ 3 

SPAZI}{DBS} 


{ 3 SPAZI}{DBS}{ 3 SPAZI}{DBS}{ 3 SPAZI}{BLU}" 






srem 

115 

2120 

H-H+1sIFH-5THEN2140 



srem 

103 

2130 

GOTO2110 



srem 

195 

2140 

H-0:RETURN 



srem 

150 

2300 

PRINT"{CLR}" 



srem 

41 

2310 

PRINT"HAI SBANCATO ! I" 



srem 

246 

2315 

FORK-1TOl00:NEXT 



srem 

24 

2320 

ZL-ZL+1 



srem 

172 

2330 

IFZL-25THENSTOP 



srem 

22 

2340 

GOT02310 



srem 

200 

2500 

POKE36879,11 



srem 

149 

2510 

PRINT"{CLR}" 



srem 

44 

2520 

FORK-1TOl00 :NEXT 



srem 

22 

2530 

PRINT"{WHT}{RVS}SEI IN 

BANCAROTTA!" 

srem 

42 

2540 

D-D+l 



srem 

236 

2550 

IFD-25THENBND 



srem 

73 

2560 

GOTO2520 



srem 

207 

3000 

PRINT"{CLR}" 



srem 

39 

3010 

POKE36879,21 6 



srem 

201 
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3020 PRINT"{BLK}{ 11 GIU'M 4 SPAZI}SPACCA{ 2 SPAZI}VENTU 



NO" 

:rem 

187 

3030 

MX-2:MY«2:Y«1sX-1 

:rem 

42 

3040 

POKE36878,15 

srem 

152 

3050 

POKE7681+X+22*Y f 65 

srem 

249 

3060 

POKB38401+X+22*Y,0 

srem 

233 

3070 

POKE7680+X+22*Y,32 

srem 

244 

3080 

X-X+MX:Y-Y+MY 

srem 

130 

3090 

FORA-205TO250STEP4 

srem 

114 

3100 

POKE36876,A 

srem 

no 

3120 

FORT»1TOI0:NEXTT:NEXTA 

srem 

250 

3135 

G“G+1:IFG*1OTHENPOKE36876,0:RETURN 

srem 

131 

3140 

POKE36876,0 

srem 

97 

3150 

GOTO3050 

srem 

202 

3500 

FORZZ-1T03000 s NEXT:RETURN 

srem 

202 

3600 

ZY*INT(RND(1)*13)+1 

srem 

69 

3610 

IFZY-1THENZX-1 

srem 

201 

3620 

IFZY-2THENZX-50 

srem 

255 

3630 

IFZY-3THENZX-51 

srem 

2 

3640 

IFZY-4THENZX-52 

srem 

5 

3650 

IFZY-5THENZX-53 

srem 

8 

3660 

IFZY-6THENZX-54 

srem 

11 

3670 

IFZY-7THENZX-55 

srem 

14 

3680 

IFZY-8THENZX-56 

srem 

17 

3690 

IFZY-9THENZX-57 

srem 

20 

3700 

IFZY-10THENZX-49 

srem 

53 

3710 

IFZY-llTHENZX-10 

srem 

43 

3720 

IFZY-12THENZX-17 

srem 

52 

3730 

IFZY-13THENZX-11 

srem 

48 

3740 

CV-ZY 

srem 

87 

3750 

IFZY>10THENCV-10 

srem 

22 

3755 

GOSUB3870 

srem 

38 

3770 

IFZYOl 0THENZV-1 60: ZL-2 

srem 

240 

3780 

IFZY«1OTHENZV»48:ZL-0 

srem 

135 

3790 

CT«CT+CV:NC-NC+1 

srem 

247 

3800 

RETURN 

srem 

171 

3870 

IFCV-1THEN3885 

srem 

111 

3880 

RETURN 

srem 

179 

3885 

GOSUB4700 

srem 

35 

3887 

IFZT*1THEN3970 

srem 

135 

3890 

PRINT"{HOME}{ 11 GIU’}CARTA JOLLY" 

srem 

104 

3900 

PRINT"CARTA NUMERO";NC+1 

srem 

6 

3910 

PRINT"{GIU'JCARTE TOTALI PRIMA DI 

QUESTA» 




srem 

211 

3920 

PRINT"IL JOLLY VALE{ 2 SPAZI}A*1 " t 

"O B-ll(PREMI 

A O 


B)" 

srem 

213 

3930 

GETA$:IFA$-""THEN3930 

srem 

193 

3935 

IFA$-"A"THENGOSUB4 7 00 :RETURN 

srem 

30 

3940 

IFA$-"B"THENCV«11 

srem 

238 

3950 

CS-11:GOSUB4700 

srem 

139 

3960 

RETURN 

srem 

178 
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3970 

IFCT+11>21THENRETURN 

:rem 

54 

39B0 

CV-11:C(S)-11 

:rem 

204 

3990 

RETURN 

:rem 

181 

4000 

PS-CT:ZT«1:PC-NC 

:rem 

44 

4010 

ZU-0:NC»0:CT-0 

:rem 

87 

4015 

C(S)«0:V«0 

:rem 

27 

4020 

GOTO4600 

:rem 

201 

4050 

GOSUB2100 

:rem 

12 

4060 

GOSUB3600 

:rem 

19 

4070 

GOSUBl500 

: rem 

17 

4080 

GOTO4200 

:rem 

203 

4200 

PRINT"{HOME}{ 11 GIU'jTU HAI SCOMMESSO";CB 

:rem 

89 

4210 

PRINT"TUA MANO-",PS 

: rem 

185 

4220 

PRINT"MIO TOTALE FIN'ORA-";CT 

:rem 

60 

4230 

PRINT"IO VOGLIO..." 

:rem 

140 

4240 

GOSUB3500 

:rem 

18 

4250 

IFCT>21THEN4280 

:rem 

143 

4260 

IFCT>16THEN4410 

srem 

143 

4270 

PRINT"UNA CARTA":GOTO4060 

srem 

42 

4280 

IFC(S)< >11THEN4300 

srem 

22 

4290 

C(S)-0:CT-CT-10:GOTO4200 

srem 

143 

4300 

POKE36879,25 

srem 

154 

4310 

PRINT"{BLK}{RVS}{CLR}HO PERSO!! HAI VINTO!! 

«i 

srem 

212 

4320 

GOSUB3500 

srem 

17 

4370 

POKE36879,30 

srem 

157 

4380 

ZT-0:BB-BB+CB 

srem 

25 

4390 

CT-0:NC-0j ZU-0 

srem 

98 

4400 

V-0:GOTO4600 

srem 

200 

4410 

CC-CT:CN-NC 

srem 

188 

4420 

ZT-0:ZU-0:C(S)*0 

srem 

201 

4430 

NC-0:V-0:CT-0 

srem 

4 

4440 

GOTO4780 

srem 

216 

4600 

IFZT-1THEN4640 

srem 

114 

4603 

IFBB<1THEN2500 

srem 

67 

4606 

IFBB>99THEN2300 

srem 

135 

4610 

PRINT" {CLRHBLK}TUO TURNO" 

srem 

79 

4620 

GOSUB3500 

srem 

20 

4630 

ZT-0:GOTO60 

srem 

193 

4640 

PRINT"{CLR}{BLK}MIO TURNO{BLU}" 

srem 

94 

4650 

GOSUB3500 

srem 

23 

4660 

GOSUB4050 

srem 

25 

4700 

R-7922 

srem 

46 

4710 

POKER,32 

srem 

222 

4720 

R-R+l 

srem 

10 

4730 

IFR<8100THEN4710 

srem 

175 

4740 

RETURN 

srem 

175 

4780 

PRINT"RESTARE{ 2 SPAZI}" 

srem 

186 

4790 

GOSUB3500 

srem 

28 

4800 

POKE36879,28 

srem 

162 

4810 

PRINT"{CLR}" 

srem 

49 
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4820 

IFCC«21ANDCN-2THEN4890 

:rem 

90 

4830 

IFPS-21ANDPC-2THEN4910 

: rem 

115 

4840 

IFCN-5THEN4930 

:rem 

97 

4850 

IFPO5THEN4950 

: rem 

102 

4860 

IFCC->PSTHEN4970 

:rem 

8 

4870 

PRINT"HAI VINTO!" 

: rem 

39 

4880 

BB=BB+CB:GOTO5500 

: rem 

6 

4890 

PRINT"HO SPACCA VENTUNO" 

: rem 

23 

4900 

BB*BB-(CB*2):GOTO5500 

: rem 

174 

4910 

PRINT"{CLRjHAI SPACCA VENTUNO!" 

: rem 

255 

4920 

BB=BB+(CB*2):GOTO5500 

: rem 

174 

4930 

PRINT"HO ’FIVE UNDER'!" 

:rem 

79 

4940 

BB=BB-(CB*2):GOTO5500 

: rem 

178 

4950 

PRINT"HAI 'FIVE UNDER'!" 

:rem 

140 

4960 

BB=BB+(CB*2):GOTO5500 

: rem 

178 

4970 

PRINT"TI HO BATTUTO";CC;"A";PS 

:rem 

91 

4980 

BB=BB-CB 

srem 

204 

5500 

GOSUB3500:CC=0:PC=0:PS=0:CS=0 

: rem 

0 

5510 

GOTO4600 

: rem 

206 



Sei in viaggio per la luna, ma men¬ 
tre ti appresti ad atterrare, un'im¬ 
provvisa tempesta di meteoriti cir¬ 
conda l'astroporto. Per raggiunge- 
re sano e salvo il suolo devi cerca¬ 
re di evitare le meteoriti, pena la 
distruzione della nave. 

Mediante i tasti [punto] e 


10 REM ASTEROID BELT 
20 PRINT"{CLR}" 

30 GOSUBl000 
40 GOSUB60 
50 GOTOlOO 
60 AA=7691 
70 POKE36879,8 
80 V*36878:S*36875 
90 RETURN 


[virgola] puoi muovere rispettiva¬ 
mente la navicella a destra e a sini¬ 
stra. Alla fine viene mostrato il 
punteggio da te ottenuto,- se inve¬ 
ce riesci a compiere l'atterraggio, il 
computer ti farà i suoi complimen¬ 
ti. 


srem 

199 

srem 

198 

srem 

164 

srem 

74 

srem 

47 

srem 

252 

srem 

11 

srem 

226 

srem 

73 


io 






100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

750 

755 

760 

780 

790 

810 

820 

830 

840 

850 

860 


:rem 
srem 
srem 
srem 
:rem 
: rem 
:rem 
: rem 
:rem 
: rem 
:rem 
:rem 
: rem 


195 
216 
220 
38 
29 
221 
199 
136 
171 
213 
153 
117 
98 


VF*SCsIFSC>200THENVF*200 :rem 201 

ZZ«INT((1000*RND(1)+VF)/100)+1 srem 68 

IFZZ>11THENZZ*11 :C em 248 

ONZZGOTO500,510,520,530,540,550,560,570,580,590,600 

:rem 107 

IFPEEK(AA)-24THENGOTO750 
POKEAA,32 
GETA$ 

IFA$-","THENAA*AA-1:1FAA<76 8 OTHENAA-76 8 0 
IFA$-"."THENAA-AA+1:IFAA>7701THENAA*7701 
POKEAA,42 
POKE30720+AA, 1 
SC-SC+1:IFSC-300THENGOT0900 
POKEV,15 
POKES,200 

FORTD•1TO20 :NEXTTD 
POKES, 0 
GOTO!00 

PRINT"{YEL}{ 5 SPAZl}X{ 13 SPAZl}X{ 2 SPAZI}":GOT0610 

:rem 190 

PRINT"{YEL}{ 4 SPAZI}X{ 10 SPAZI}X{ 5 SPAZI}X":GOT061 

0 :rem 23 

PRINT"{YEL}{ 3 SPAZI}X{ 3 SPAZI}X{ 4 SPAZI}X 
{ 2 SPAZI}X{ 4 SPAZI}X ":GOTO610 :rem 200 

PRINT"{YEL}{ 3 SPAZI}X{ 2 SPAZI}X{ 2 SPAZI}X 
{ 10 SPAZI}X ":G0T0610 srem 113 

PRINT"{YEL}X{ 2 SPAZI}X{ 9 SPAZI}X{ 6 SPAZI}X ":G0T06 
10 :rem 114 

PRINT"{YEL}{ 8 SPAZI}X X{ 4 SPAZI}X{ 3 SPAZI}X 
{ 2 SPAZI}":GOTO610 «rem 115 

PRINT"{YEL}{ 8 SPAZI}X{ 2 SPAZI}X{ 7 SPAZI}X 
{ 2 SPAZI}":GOTO610 srem 28 

PRINT"{YEL}{ 3 SPAZI}X X{ 4 SPAZI}X{ 4 SPAZI}X XXX 
{ 2 SPAZI}":GOTO610 srem 125 

PRINT"{YEL}X{ 12 SPAZI}X{ 7 SPAZI}X":G0T0610srem 
PRINT"{YEL}{ 2 SPAZI}X{ 6 SPAZI}X{ 3 SPAZI}XX 
{ 2 SPAZI}X{ 4 SPAZI}":GOTO610 srem 

PRINT"{YEL} X{ 3 SPAZI}X{ 5 SPAZI}X{ 3 SPAZI}X 


30 


207 


{ 3 SPAZI}X{ 2 SPAZI}"sGOTO610 
GOTO!40 

REMPRINT"{CLR}" 

POKEV,15 

FORSS-200TO175STEP-1 
POKES,SS 

FORTD-1TO100 :NEXTTD 
NEXTSS 

PRINTTAB(157)"{WHT}{RVS}TI SEI SCONTRATO" 

FORTD*1TO1000 :NEXTTD 

PRINT 

PRINTTAB(4)"{WHT}{RVS}PUNTEGGIO S ";SC 
POKEV,0:POKE198,0 


:rem 

srem 

:rem 

srem 

:rem 

srem 

:rem 

srem 

srem 

srem 

:rem 

srem 

:rem 


199 

101 

228 

184 

211 

243 

210 

126 

130 

253 

41 

158 

230 
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870 

PRINT"{ 2 GIU'}{ 3 SPAZI}VUOI RIPROVARE"; 

: rem 

202 

880 

INPUTA$:PRINT"{CLR}" 

:rem 

51 

890 

IFLEFT$(A$,1)="S"THENSC * 0 :GOTO100 

: rem 

156 

895 

END 

:rem 

125 

900 

PRINT"{CLR}" 

: rem 

253 

910 

POKEV ,15 

:rem 

177 

920 

FORSS=225TO250 

: rem 

56 

930 

POKES,SS 

:rem 

240 

940 

FORTD*1TO10 0 :NEXTTD 

: rem 

207 

950 

NEXTSS 

: rem 

131 

960 

PRINTTAB(2)"{RVS}{WHT}MISSIONE COMPIUTA!" 

:rem 

203 

980 

POKEV,0:END 

: rem 

147 

1000 

PRINT"{CLR}" 

srem 

37 

1010 

POKE36879,8 

srem 

102 

1020 

FORXX=1TO50 

s rem 

208 

1030 

YY=INT(468*RND(1)+1) 

srem 

125 

1040 

POKE7680+YY,42 

s rem 

56 

1050 

POKE38400+YY,1 

: rem 

46 

1060 

NEXTXX 

s rem 

1 82 

1 070 

PRINTTAB(224)"{RVS}{WHT}ASTEROID BELT" 

: rem 

242 

1080 

FORTD = 1TO10 0 0 :NEXTTD 

s rem 

43 

1090 

PRINT"{CLR}" : RETURN 

s rem 

72 


Rubrica iadirìzzi 


CI6 — pius/4 

stampante e disk drive 
opzionale 


Questo programma può servirvi a 
memorizzare i dati relativi alle per¬ 
sone che conoscete,- i dati com¬ 
prendono nome, indirizzo, città, 
provincia, codice postale e telefo¬ 
no (con prefisso). Le informazioni 
possono poi essere visualizzate 
sullo schermo o stampate su carta, 
creando in tal modo una rubrica. I 
dati vengono automaticamente 
salvati su nastro o su disco, e ri¬ 
chiamati ogni volta che fate girare 
il programma. 

“Rubrica Indirizzi “ è molto facile da 
usare. Il suo menù comprende 4 
opzioni. 


Aggiunta - serve ad aggiungere 
nuovi nominativi alla rubrica. Se 
commettete un errore di battitura, 
potete correggere il dato sbagliato 
dopo aver digitato tutte le informa¬ 
zioni. 

Cancellazione - serve a cancellare 
dalla rubrica un singolo nominati¬ 
vo. 

Stampa - può avvenire sia su video 
che tramite la stampante. 

Fine - da selezionare al termine del¬ 
le operazioni. Provoca il salvatag¬ 
gio delle informazioni presenti in 
memoria. 
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100 MEM-50sLW«lSC0L0R4,!SCOLORO,!:V0L8 :rem 80 

110 PRINT"{CLR}{ 3 GIU'}{YEL}{ 9 SPAZI}{RVS}C{OFF}ASSETTA 
OPPURE {RVS}D{OFF}ISCO?" srem 243 

120 GETDV$sIFDV$O"C"ANDDV$O"D"THENl20 srem 14 

130 IFDV$«"D"THENl70 srem 109 

140 PRINT" { 3 GIU'H 4 SPAZI }RUBRICA GIÀ' REGISTRATA 

{ 2 SPAZI}(S/N)?" srem 239 

1 50 GETG$ s IFG$0"S"ANDG$0"N"THENl 50 s rem -53 

160 IFG$-"N"THENLW-0 srem 159 

170 DIMQ (MEM),A$(MEM,6) ,CT (MEM) ,CY (6) srem 88 

180 GOTO240 srem 104 

190 FORJ-1T02500 s NEXT srem 28 

200 RETURN srem 114 

210 FR-100+RND(1)*500 srem 73 

220 SOUNDl, FR, 30 srem 161 

230 RETURN srem 117 

240 P$-"{HOME}{ 26 GIU'}"sT4«28 srem 193 

250 COLOR4,8:COLORO, 8 s Ti-3sT2«l0sT3»l5sT5«l3SCOLORO,2 

srem 151 


260 PRINT" {CLR} {RVS} [<1>] { 7 SPAZI} [<6>]U{ 24 C}U<1>] 

{ 6 SPAZI}"; srem 202 

270 PRINT"{ 8 SPAZI}1<6>]B{WHT}{ 24 SPAZI}[<6>]B[<1>] 

{ 6 SPAZI}"; "* srem 225 

280 PRINT"{ 8 SPAZI}[<6>}J{ 24 C}K[<1>]{ 7 SPAZI}" 

srem 98 


290 PRINT"{HOME}{GIU'}"SPC(11)"{RED} RUBRICA INDIRIZZI 

{BLK}" srem 221 

300 PRINT" {RVS} I<7>} { 2 SPAZI }U{ 4 CU{ 2 SPAZI}U 

{ 25 C}U 3 SPAZI}"; srem 158 

310 PRINT ir {BLK}l [<7>1 B{OFF}{ 4 SPAZI} {RVS}B{ 2 SPAZl}B 
{OFF}{ 25 SPAZI}{RVS}B{ 2 SPAZI}"; srem 75 

320 PRINT"{ 3 SPAZI}J{ 4 C}K{ 2 SPAZI}J{ 25 C}K 

{ 3 SPAZI}"; srem 226 

330 PRINT" { 2 SPAZI }U{ 9 C}l^{ 2 SPAZI}U{ 18 CU 

{ 5 SPAZI}"; srem 111 

340 PRINT"{BLK}2[<7>| B{OFF}{ 9 SPAZI } {RVS }B{ 2 SPAZI}B 
{OFF}{ 18 SPAZI}{RVS}B{ 4 SPAZI}"; srem 79 

350 PRINT"{ 3 SPAZI}J{ 9 C}K{ 2 SPAZI}J{ 18 C}K 

{ 5 SPAZI}"; srem 95 

360 PRINT" { 2 SPAZI}U{ 6 C}l^{ 5 SPAZI}U{ 12 C}l^ 

{ 11 SPAZI}"; srem 151 

370 PRINT"{BLK}3{<7>} B{OFF}{ 6 SPAZI}{RVS }B{ 5 SPAZI }B 
{OFF}{ 12 SPAZI}{RVS}B{ 10 SPAZI}"; srem 83 

380 PRINT"{ 3 SPAZI}J{ 6 C}K{ 5 SPAZI}J{ 12 C}K 

{ 11 SPAZI}"; srem 135 

390 PRINT" { 2 SPAZI }U{ 5 CU{ 4 SPAZI}U{ 2 C)U 4 SPAZI) 
U{ 3 C}I{ 2 SPAZI}U{ ? C}I{ 5 SPAZI}"; srem 141 

400 PRINT ir {BLK}41<7>) B{OFFT{ 5 SPAZI} {RVS}B{ 4 SPAZl}B 
{OFF}{ 2 SPAZI}{RVS}B{ 2 SPAZI}{BLK}5[<7>1 B{OFF} 

{ 3 SPAZI}{RVS}B{ 2 SPAZI}B{OFF}{ 5 SPAZI}{RVS}B 
{ 4 SPAZI}"; srem 253 
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410 PRINT" 3 SPAZI}J{ 5 C}K 4 SPAZI}j{ 2 C}K{ 4 SPAZI} 

J{ 3 C)K{ 2 SPAZI J{ S C}K{ 5 SPAZI}"; :rem 98 

420 PRINT^Ì 2 SPAZI }U 4 C}l^ 5 SPAZI }U 13 C}l^ 

{ 12 SPAZI}"; “ : rem 209 

430 PRINT"{BLK}6[<7>] B{OFF}{ 4 SPAZI}{RVS}B{ 5 SPAZI}B 
{OFF}{ 4 SPAZI}{RVS}{BLK}/{OFF}{ 8 SPAZI}[<7>]{RVSTb 


{ 11 SPAZI}"; 

440 PRINT"{ 3 SPAZI}J{ 4 C}K{ 5 SPAZI}j{ 13 C}K 
{ 12 SPAZI}"; 


450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


PRINT"{ 40 SPAZI}"; 

PRINT"{ 40 SPAZI}" 

PRINTLEFT$(P$,5)SPC(Tl)"{BLK}{RVS}NOME" 
PRINTLEFT$(P$,8)SPC(Tl)"{RVS}INDIRIZZO" 
PRINTLEFTS(P$,11 )SPC(Tl)"{RVS}CITTA'" 


PRINTLEFT$(P$ , 17)SPC(Tl)"{RVS}TEL." 


SPC(10)"{RVS} F {OFF} FINE" 
FORJ«lTOlOO:NEXT:GOSUB210 
FORJ-1T02000:NEXT 
IFLW-1THENLW-0: GOTO!860 
O-O+l:PRINTLEFTS(P$,2)SPC(1 
":IFO-3THENO-0: GOTO610 


FORJ-1TOl00:NEXT 
GOTO570 
GETKEYG$ 

SS$-"":SL$«"" 

IFG$ = "A"THEN6 8 0 

IFG$*"C"THEN2150 

IFG$-"S"THEN2360 

IFG$«"F"THEN2790 

GOTO610 

Q-Q+l 

FORJ-1TOl00:NEXT:GOSUB210 

PRINTLEFT$(P$ r 2)SPC(11)"{<1>}{ 6 SPAZI}NOME? 
{ 7 SPAZI}{BLK}” 

FORX-1T025 

PRINTLEFT$(P$,5)SPC(T2+X)"[<+>]" 

FORJ-1T05:NEXT 

PRINTLEFT$(P$ ,5) SPC(T2+X)" "; 

GETG$:GOSUB2880:IFG$«""THEN720 
IFG$-CHR$(13)THENPOKE239/0:GOTO800 
PRINTLEFTS(P$,5)SPC(T2+X)G$ 
A$(Q,1)-A$(Q,1)+G$ 

NEXT 


rem 

¥0 

rem 

193 

rem 

165 

rem 

107 

rem 

no 

rem 

117 

rem 

122 

)"CAP 

in 

rem 

175 

rem 

240 

AGGIUNG 

rem 

206 

STAMPA" 

rem 

203 

rem 

50 

rem 

23 

rem 

188 

, SCELTA 

rem 

234 

SPAZI} 

rem 

3 

rem 

234 

rem 

107 

rem 

203 

rem 

97 

rem 

34 

rem 

79 

rem 

99 

rem 

94 

rem 

109 

rem 

217 

rem 

56 

rem 

242 

rem 

79 

rem 

197 

rem 

138 

rem 

92 

rem 

240 

rem 

237 

rem 

75 

rem 

58 

rem 

223 
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800 IFIX> 1 THENLC-OsGOTO 1 490 

:rem 

144 

810 FORJ-lTOlOO:NEXT:GOSUB210 

:rem 

50 

820 PRINTLEFT$(P$,2)SPC(11)"[<1>1{ 4 SPAZl}lNDIRIZZO? 


{ 

4 SPAZI}{BLK}" 

s rem 

136 

830 FORX-lTOl8 

:rem 

84 

840 PRINTLEPT$(P$,8)SPC(T3+X)"{<+>}" 

:rem 

204 

850 FORJ*1TO5:NEXT 

: rem 

141 

860 PRINTLEFT$(P$ f 8)SPC(T3+X)" 

:rem 

99 

870 GETG$:GOSUB2880:IFG$-”"THEN840 

: rem 

246 

880 IFG$-CHR$(13)THENPOKE239,0:GOTO920 

:rem 

243 

890 PRINTLEFT$(P$,8)SPC(T3+X)G$ 

: rem 

82 

900 A$ (Qr2) -A$ (Q»2) +G$ 

:rem 

54 

910 NEXT 

:rem 

217 

920 IFLC-1THENLC-0:GOTO!490 

:rem 

147 

930 FORJ-lTOlOO:NEXT:GOSUB210 

:rem 

53 

940 PRINTLEFT$(P$,2)SPC(11)"l<1>J{ 5 SPAZI}CITTA*? 


{ 

6 SPAZI}{BLK}" 

:rem 

101 

950 FORX-lTOl2 

2 rem 

81 

960 PRINTLEFT8(P$,11)SPC(T3+X)"l<+>]" 

2 rem 

249 

970 FORJ-1TO5 :NEXT 

2 rem 

144 

980 PRINTLEFT?(P$,l1)SPC(T3+X)" 

2 rem 

144 

990 GETG$:GOSUB2880:IFG$-""THEN960 

2 rem 

252 

1000 

IFG$«CHR$(13)THENPOKE239,0:GOT01040 

2 rem 

62 

1010 

PRINTLEFTS(P$,11)SPC(T3+X)G$ 

2 rem 

157 

1020 

A$(Q,3)-A$(Q,3)+G$ 

2 rem 

98 

1030 

NEXT 

2 rem 

3 

1040 

IFLC-1THENLC-0:GOT01490 

2 rem 

189 

1050 

FORJ-1TOl00:NEXT:GOSUB210 

2 rem 

95 

1060 

PRINTLEFT$(P$,2)SPC(11)"t<1>]{ 4 SPAZI}PROVINCIA? 


( 4 SPAZI}{BLK}” 

2 rem 

158 

1070 

FORX-1T02 

2 rem 

74 

1080 

PRINTLEFTS(P$,14)SPC(T5+X)"[<+>]" 

2 rem 

40 

1090 

FORJ-ITO5:NEXT 

2 rem 

186 

1100 

PRINTLEFT$(P$,14)SPC(T5+X)" "? 

2 rem 

.182 

ino 

GETG$:GOSUB2880:IFG$ = ""THENl 080 

2 rem 

71 

1120 

IFG$-CHR$(13)THENPOKE239,0:GOTOl160 

2 rem 

68 

1130 

PRINTLEFTS(P$,14)SPC(T5+X)G$ 

2 rem 

165 

1140 

A$(Qr 4)-A$(Qr 4)+G$ 

2 rem 

103 

1150 

NEXT 

2 rem 

6 

1160 

IFLC-1THENLC-0 :GOTO1490 

2 rem 

192 

1170 

FORJ-lTOl00:NEXT:GOSUB210 

2 rem 

98 

1180 

PRINTLEFTS(P$ f 2)SPC(11)"{<1>} CODICE 

POSTALE? 



{ 2 SPAZI}{BLK}” 

2 rem 

181 

1190 

FORX-1T05 

2 rem 

80 

1200 

PRINTLEFT$(P$,14)SPC(T4+X)"{<+>}" 

: rem 

33 

1210 

FORJ-ITO5:NEXT 

2 rem 

180 

1220 

PRINTLEFT$(P$ f 14)SPC(T4+X)" 

2 rem 

184 

1230 

GETG$:GOSUB2880:IFG$-""THENl200 

2 rem 

68 

1240 

PRINTLEFTS(P$,14)SPC(T4+X)G$ 

2 rem 

166 

1250 

A$(Q,5)-A$(Q,5)+G$ 

2 rem 

107 

1260 

NEXT 

2 rem 

8 
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1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 


IPLC-1THENLC-0:GOTO1490 srem 

FORJ-1TOl00 :NEXT:GOSUB210 irera 

PRINTLEFT$(P$,2)SPC(11)"(<!>]{ 4 SPAZI)TELEFONO? 


{ 5 SPAZI}{BLK}" 

F0RX-1T04 

PRINTLEFT$( P$ , 1 7 )SPC(T5+X)"[<+>1■ 

FORJ-1TO 5:NEXT 

PRINTLEFT$ (P$ » 1 7) SPC (T5+X) " "; 
GETG$:GOSUB2880sIFG$«""THENl310 
PRINTLEFT$ (P$ , 1 7) SPC (T5+X) G$ 

C$-C$+G$ 

NEXT 

FORX-1T08 

PRINTLEFTS(P$,17)SPC(T5+5+X)"(<+>}■ 

FORJ-ITO5:NEXT 

PRINTLEPT$(P$,17)SPC(T5+5+X)" "f 
GETG$:GOSUB2880sIFG$«""THENl 390 
PRINTLEFTS (P$ , 1 7) SPC (T5+5+X) G$ 

Cl$-Cl$+G$ 

NEXT 

A$(Q,6)»C$+"/"+Cl$:C$«"":Cl$ 

IFLC-1THENLC-0:GOTOl490 
FORJ-1TOl00:NEXT:GOSUB210 
FORJ-1TOl00:NEXT:X-0:GOSUB210 

X-X+l:PRINTLEFT$(P$,2)SPC(10)"[<1>1 TUTTO GIUSTO 

{ 2 SPAZI}(S/N)?"sIFX«3THENX«0sGOTOl540 srem 

FORJ-1TO500:NEXT:PRINTLEFT$(P$ , 2)SPC(10)■ 

{ 20 SPAZI}" srem 

FORJ-1TOl00sNEXT 3rem 

GOTOl500 srem 

GETKEYGS 
IFG$»"S"THEN250 

IFG$-"N"THEN1580 srem 

GOTOl540 srem 

FORJ-lTOl00:NEXT:X-0sGOSUB210 srem 

X»X+lsPRINTLEFT$(P$,2)SPC(10)"l<l>}{ 2 SPAZl}DATO ER 

32 


nn 


srem 
srem 
srem 
s rem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 
srem 


rem 


srem 

srem 


194 

100 

84 

72 

39 

182 

190 

72 

172 

107 

10 

84 

143 

181 

29 

79 

11 

204 

9 

174 

196 

102 

102 

66 

44 

20 

200 

254 

95 

146 

208 

102 


rem 


RATO N.?{ 3 SPAZI}"sIFX-3THENX-0sGOTOl630 
FORJ-1TO50OsNEXT:PRINTLEFT$(P$,2)SPC(10) " 

{ 20 SPAZI}” 

FORJ-1TOl00sNEXT 
GOTOl590 
GETKEYGS 

ONVAL(G$)GOTOl660,1690,1720,1750,1780,1810 
GOTOl630 

PRINTLEFT$(P$,2)SPC(11)”[<1>]( 2 SPAZI}CORREGGI NONE 

{ 3 SPAZI}"sA$(Q,1)-"" srem 202 

F0RZ-3267T03243STEP-18 POKEZ,32 sFORJ-1TOl00 8 NEXTs NEXT 

srem 122 

LC-1SGOTO690• srem 222 

PRINTLEFT8(P$,2)SPC(11)"(<1>}CORREGGI INDIRIZZO"sA$( 
q, 2)-"" srem 97 


srem 
s rem 
srem 
srem 
srem 
srem 


44 

20 

209 

254 

234 

207 
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1700 F0RZ-3385T03368STEP-1:POKEZ,32:FORJ«lTOl00:NEXT:NEXT 

:rem 125 

1710 LC-1SGOTO810 irem 210 

1720 PRI NTLEFT$ (P$, 2 )SPC(11)"[<1>] CORREGGI CITTA' 

{ 2 SPAZI}" :A$ (Q,3)*•" : rem 54 

1730 F0RZ-3499T03488STEP-1:POKEZ,32:FORJ»lTOl00:NEXT:NEXT 

:rem 137 

1740 LC-1:GOTO930 :rem 216 

1750 PRINTLEFT$(P$,2)SPC(11 ) " {<1>]CORREGGI PROVINCIA":A$( 
Q f 4)■** : rem 73 

1760 FORZ-3607TO3606STEP-1:POKEZ,32:FORJ-1TOl00:NEXT:NEXT 

: rem 123 

1770 LC-1JGOTO1050 srem 5 

1780 PRINTLEFT$(P$,2)SPC(11)"{<1>}{ 3 SPAZI}CORREGGI CAP 

{ 3 SPAZI}":A$(Q#5): rem 118 

1790 F0RZ-3625T03621STEP-1:POKEZ,32:FORJ-1TOl00:NEXT:NEXT 

: rem 123 

1800 LC-1jGOTOI 170 srem 2 

1810 PRINTLEFT$(P$,2)SPC(11)"[<1>]CORREGGI TELEFONO ":A$( 
Q»6)-"" :rem 249 

1820 F0RZ-3729T03726STEP-1:POKEZ/32:FORJ-1TOl00:NEXT:NEXT 

:rem 128 

1830 F0RZ-3738T03731STEP-1:POKEZ,32:FORJ-1TOl00:NEXT:NEXT 


1840 

LC-1:GOTOl 280 

:rem 

:rem 

125 

8 

1850 

GOTO!630 

:rem 

209 

1860 

PRINTLEFTS(P$,2)SPC(11)"I<1>1 CARICAMENTO 

DATI " 

:FOR 


J-lT02000:NEXT 

: rem 

43 

1870 

IFDV$«"D"THENl 920 

:rem 

221 

1880 

PRINT"{CLR}{ 3 GIU'}{RED}{ 2 SPAZI}INSERISCI LA 

CASS 


ETTA-DATI RIAVVOLTA" 

srem 

25 

1890 

PRINTSPC(12)"E PREMI UN TASTO" 

srem 

45 

1900 

GETKBYG$ 

srem 

254 

1910 

OPEN7,1,0,"DATI":GOT01960 

srem 

194 

1920 

PRINTLEFT$(P$,2)SPC(11)"{ 2 SPAZI}ATTENDI 

PREGO 



{ 3 SPAZI}" 

srem 

46 

1930 

OPEN7,8,7,"DATI,S,R" 

srem 

140 

1940 

OPENl5,8,15:INPUT#15,B$,El$,E2 $,E 3 $ 

srem 

153 

1950 

IFVAL(E$)-62THENCLOSE7:CLOSEl5:GOT0250 

srem 

156 

1960 

SS-0 

srem 

227 

1970 

SS-SS+1 

srem 

182 

1980 

FORJ-1T06:INPUTI7,A$(SS,J):NEXT 

srem 

229 

1990 

IFST-0THEN1970 

srem 

118 

2000 

Q-SS 

srem 

246 

2010 

CLOSE7:CLOSEl5 

srem 

134 

2020 

GOTO250 

srem 

148 

2030 

PRINTLEFT$(P$,2)SPC(11)"{<1>} SALVATAGGIO 

DATI " 

:FOR 


J-1T02000:NEXT 

srem 

45 

2040 

IFDV$-"D"THEN2090 

srem 

210 

2050 

PRINT"{CLR}{ 3 GIU'}{RED}{ 2 SPAZI}INSERISCI LA 

CASS 


ETTA-DATI RIAVVOLTA" 

srem 

15 
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2060 

PRINTSPC(12)"E PREMI UN TASTO{GIU*}" 

:rem 

• 52 

2070 

GETKEYGS 

:rem 

253 

2080 

OPEN6 ,1,1,"DATI": GOTO2110 

srem 

181 

2090 

PRINTLEFT$(P$,2)SPC( 11 ) " { 2 SPAZI}ATTENDI 

PREGO 



{ 3 SPAZI}" 

srem 

45 

2100 

OPEN6,8,6,"@:DATI,S,W" 

srem 

255 

2110 

FORLS-lTOQ 

srem 

172 

2120 

FORJ-1T06:PRINT#6,A$(LS,J)iNEXTsNEXT 

srem 

70 

2130 

CLOSB6 

srem 

114 

2140 

GOTO2850 

srem 

207 

2150 

PRINTLEFT$(P$,2)SPC(11)"{<1>}{ 2 SPAZIJCANCELLAZIONE 


{ 3 SPAZI}":FORJ-1TOl000:NEXT 

srem 

147 

2160 

FORJ-1TOl00:NEXT:GOSUB210 

srem 

98 

2170 

PRINTLEFT$(P$, 2)SPC(11)"{ 6 SPAZI}NOME?{ 7 

SPAZI} 


{BLK}" 

srem 

164 

2180 

F0RX-1T025 

srem 

130 

2190 

PRINTLEFT$(P$,5)SPC(T2+X)"[<+>]" 

srem 

248 

2200 

FORJ-1T05:NEXT 

srem 

180 

2210 

PRINTLEFT$(P$,5)SPC(T2+X)" "f 

srem 

134 

2220 

GETG$:GOSUB2880:IFG$-""THEN21 90 

srem 

77 

2230 

IFG$-CHR$(13)THENPOKE239,0 :GOTO2270 

srem 

74 

2240 

PRINTLBFT$(P$,5)SPC(T2+X)G$ 

srem 

117 

2250 

DL$-DL$+G$ 

srem 

4 

2260 

NEXT 

srem 

9 

2270 

ES-0:FORAS-0TOQ:IFDL$«A$(AS, 1 )THENES-AS:AS 

«Q 

srem 

59 

2280 

NEXT:IFES>0THEN2320 

srem 

208 

2290 

PRINTLEFT$(P$,2)SPC(11)"[<!>] NOME NON TROVATO ' 

•:FOR 


J-1T02000:NEXT 

srem 

42 

2300 

DL$«"" 

srem 

250 

2310 

GOTO250 

srem 

150 

2320 

DL$-"":SD-0 

srem 

58 

2330 

FORSD-ESTOQ 

srem 

15 

2340 

FORJ-1T06:A$(SD,J)-A$(SD+1,J):NEXT:NEXT 

srem 

140 

2350 

Q-Q-1:GOTO250 

srem 

17 

2360 

PRINTLEFT$(P$,2)SPC(11)"{<!>]{RVS}V{OFF}IDEO O 

[rvs } 


S{OFF}TAMPANTE {BLK}" 

srem 

115 

2370 

GETKEYG$ 

srem 

0 

2380 

IFG$-"V"THEN241 0 

srem 

148 

2390 

IFG$-"S"THEN2600 

srem 

147 

2400 

GOTO2370 

srem 

203 

2410 

FORAR-OTOQ 

srem 

162 

2420 

IFA$(AR,1)-""THEN2580 

srem 

124 

2430 

PRINTLEFT$(P$,5)SPC(T2+1)A$(AR,1) 

srem 

138 

2440 

PRINTLEFT$(P$,8)SPC(T3+1)A$(AR,2) 

srem 

144 

2450 

PRINTLEFTS(P$,11)SPC(T3+1)A$(AR,3) 

srem 

188 

2460 

PRINTLEFT$(P$,14)SPC(T5+1)A$(AR,4) 

srem 

195 

2470 

PRINTLEFT8(P$,14)SPC(T4+1)A$(AR,5) 

srem 

196 

2480 

PRINTLEFT8(P$,17)SPC(T5+1)A$(AR,6) 

srem 

202 

2490 

PRINTLEFT$(P$,2)SPC(11)"{<1>}{ 3 SPAZlJPREMI UN 

TAST 
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0{ 3 SPAZI){BLK}" 

2500 GETKEYGS 

2510 F0RZ-3267T03243STEP-1 
2520 F0RZ-3385T03368STEP-1 
2530 F0RZ-3499T03488STEP-1 
2540 FORZ-3607TO3606STEP-1 
2550 F0RZ-3625T03621STEP-1 
2560 F0RZ-3729T03726STEP-1 
2570 F0RZ-3738T03731STEP-1 


:rem 103 
:rem 251 

POKEZ,3 2 :FORJ-1TOl0:NEXT:NEXT 

tram 68 

POKEZ,32:FORJ-1TOl0 :HEXT:NEXT 

: rem 78 

POKEZ# 32:FORJ-1TO10:NEXT:NEXT 

:rem 88 

POKEZ,3 2 :FORJ-1TOl0 :NEXT:NEXT 

tram 72 

POKEZ #32:FORJ-1TOl0 :NEXT:NEXT 

: rem 70 

POKEZ # 3 2 :FORJ-1TOl0 :NEXT:NEXT 

:rem 82 

POKEZ,32:FORJ-1TOl0 :NEXT:NEXT 


2580 

NEXT 

: rem 

:rem 

79 

14 

2590 

GOTO250 

: rem 

160 

2600 

PRINT" {CLR} { 3 GIU'HREDH 2 SPAZI)POSIZIONA LA 

CART 


A AD INIZIO PAGINA" 

:rem 

54 

2610 

PRINTSPC(12)"E PREMI UN TASTO" 

:rem 

36 

2620 

GETKEYGS 

:rem 

254 

2630 

OPEN4#4:CMD4 

:rem 

211 

2640 

GOSUB2860 

: rem 

28 

2650 

FORPR-OTOQ 

:rem 

183 

2660 

PL-PL+1 

: rem 

1 59 

2670 

IFA$(PR,1)«""THEN2740 

:rem 

144 

2680 

PRINTAS(PR,1)TAB(26-LEN(A$(PR, 1 ) ) ) A$ (PR, 2) ; 

:rem 

165 

2690 

PRINTTAB(19-LEN(A$(PR,2)))A$(PR,3); 

srem 

245 

2700 

PRINTTAB(13-LEN(A$(PR,3)))A$(PR,4 ); 

srem 

233 

2710 

PRINTTAB(3-LEN(A$(PR,4)))A$(PR,5)J 

srem 

187 

2720 

PRINTTAB(6-LBN(A$(PR,5)))A$(PR,6); 

srem 

193 

2730 

PRINT 

srem 

89 

2740 

IFPL-6 OTHENFORPD-1T04:PRINT:NEXT:GOSUB2860 

srem 

84 

2750 

NEXT:IFPL-0THEN2770 

srem 

222 

2760 

PD-62-PL:FORPK-1TOPD:PRINT:NEXT 

srem 

114 

2770 

PRINTI4:CLOSE4 

srem 

152 

2780 

GOTO250 

srem 

161 

2790 

IFQ-0THEN2850 

srem 

29 

2800 

PRINTLEFTS(P$,2)SPC(11)"I<1>) SEI SICURO{ 2 

SPAZI)(S/ 


N) ?" 

srem 

61 

2810 

GETKEYENS 

srem 

75 

2820 

IFEN$«"S"THEN2030 

srem 

218 

2830 

IFEN$»"N"THEN250 

srem 

168 

2840 

G0T02810 

srem 

210 

2850 

PRINT"(CLR)":END 

srem 

68 

2860 

PRINT"NOME"SPC(22)"INDIRIZZO"SPC(10)"CITTA 

' "SPC(7)"P 


R CAP( 3 SPAZI)TELEFONO" 

srem 

109 

2870 

FORL-0TO79:PRINT"NEXT:PL-0:RETURN 

srem 

221 
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2880 IFG$ a "{GIU '}"ORG$="{DES}"ORG$="I<1>]"ORG$="{SIN}"ORG 
$ *CHR$(20)THENG$ = "" :rem 88 

2890 RETURN :rem 179 



; 

Studio di funzioni 

— 

Questa settimana vi presentiamo 
un programma che sarà senz'altro 
gradito dagli studenti (e dai pro¬ 
fessori) che devono vedersela tutti 
i giorni con le funzioni matemati¬ 
che. Con esso è possibile eseguire 
lo studio completo di una funzione 
in una variabile; calcolando massi¬ 
mi, minimi, soluzioni reali, derivata 
prima e seconda (in un punto) ed 
integrale definito ; inoltre si può vi¬ 
sualizzare il grafico ad alta risolu¬ 
zione della funzione e della sua 
derivata prima. 

Si tratta di un programma dalla 
struttura complessa, comprenden¬ 
te una routine che sostituisce ai co¬ 
mandi Wait, Verify, Cont, Let pre¬ 
senti ne! listato altrettante nuove 
istruzioni (Plot, Screen, Wipe, Hue) 
che servono per la gestione dello 
schermo hi-res. 

Naturalmente per utilizzare questo 
programma occorre avere qualche 
cognizione di matematica, e per 
riuscire a sfruttarlo pienamente è 
necessario fare un po' di pratica. 
Tuttavia l'uso è facilitato dal fatto 
che tutte le opzioni possibili sono 
riunite in un menu. Vediamole una 
per una. 

Introduzione funzione - Serve ad 
introdurre la funzione da studiare, 
usando X come variabile e facen¬ 


do attenzione a non superare i 62 
caratteri (quelli in eccesso verreb¬ 
bero ignorati). 

Campo di esistenza - Se la funzio¬ 
ne non è definita per tutti i valori 
reali, è necessario introdurre l'inter¬ 
vallo dove non è definita, usando 
a variabileXedisimboli ">", ’<" 
e ne! caso ci siano più punti 
in cui la funzione non è definita; 
utilizzare l’operatore logico And. 
Se invece è sempre definita basta 
premere il tasto *1 * 

Attenzione: ogni qualvolta viene 
introdotta una nuova funzione oc¬ 
corre cambiare anche il campo di 
esistenza. 

Integrale definito - Per calcolarlo 
bisogna assegnare gli estremi del¬ 
l’intervallo di integrazione e il nu¬ 
mero di suddivisioni, in quanto 
l'integrale viene calcolato per ap¬ 
prossimazione tramite la somma 
delle aree di piccoli trapezi (natu¬ 
ralmente, crescendo il numero di 
suddivisioni aumenta sia la preci¬ 
sione del risultato sia, purtroppo, 
il tempo di elabdrazione). 

Derivata prima e seconda - Viene 
calcolato il valore numerico che 
queste hanno in un determinato 
punto, del quale si deve introdurre 
l’ascissa. 

Massimi e minimi - La ricerca avvie¬ 


rò 







ne airinterno di un intervallo, di cui 
vanno specificati gli estremi ed il 
numero di suddivisioni. La preci¬ 
sione è tanto maggiore quanto più 
grande è tale numero. 

Soluzioni reali - Permette di trovare 
(se esistono) i punti in cui la fun¬ 
zione cambia segno all’interno di 
un certo intervallo (vedi "massimi 
e minimi”). 

Grafico funzione/Grafico derivata 
prima - Questa opzione permette 
di tracciare il grafico della funzione 
sullo schermo. I parametri da intro¬ 
durre sono: 

- la risoluzione, che determina la 
densità dei punti che formano il 
grafico (e di conseguenza il tempo 
impiegato a tracciarlo); 

- l'ampiezza verticale e quella 
orizzontale, Che regolano l'ingran¬ 
dimento del grafico nelle due dire¬ 
zioni; 


- l'intervallo in cui si vuole visua¬ 
lizzare la funzione,- 

- le coordinate dell'origine. 
Proseguendo, il programma chiede 
se lo schermo debba venir pulito 
oppure no, consentendo la so¬ 
vrapposizione di più grafici, e se 
si vuole che gli assi XeY vengano 
disegnati (ovviamente essi appaio¬ 
no solo se l'origine rientra nello 
schermo). 

Per quanto riguarda il grafico della 
derivata prima la procedura è 
identica. Quando avrete familiariz¬ 
zato con questi parametri, riuscire¬ 
te facilmente a ”inquadrare” qual¬ 
siasi grafico nel vostro video. 
Un’ultima raccomandazione: es¬ 
sendo il listato particolarmente 
lungo, prestate molta attenzione 
nel digitarlo, per evitare in seguito 
un noioso lavoro di controllo. 


5 PRINT"{CLR}":POKE53280,0:POKE53281 ,0:PRINTCHR$(158) 

: rem 

7 PRINTSPC(4) " { 4 GIU'){RVS}{ 34 SPAZI}{OFF}" :rem 

8 PRINTSPC(4)"{RVS}{ 2 SPAZI}** FUNZI0NI{ 2 SPAZI}- 

{ 2 SPAZI}C 64{ 4 SPAZI}** {OFF}" :rem 

9 PRINTSPC(4)"{RVS}{ 34 SPAZI}{OFF}" :rem 

11 PRINTSPC(4)"{RVS}{ 2 SPAZI}PROGRAMMA PER LO STUDIO 

{ 6 SPAZI}{OFF}" :rem 

12 PRINTSPC(4)"{RVS}{ 34 SPAZI}{OFF}" :rem 

13 PRINTSPC(4)"{RVS}{ 2 SPAZI}FUNZIONI MATEMATICHE 

{ 12 SPAZI}{OFF}" :rem 

14 PRINTSPC(4)"{RVS}{ 34 SPAZl}{OFF}" :rem 

15 PRINTSPC(4)"{RVS}{ 34 SPAZI}{OFF}" :rem 

16 PRINTSPC(4)"{RVS}{ 2 SPAZI}BY RAVAZZANO FABRIZIO 

{ 2 SPAZI}4/3/1985 {OFF}" :rem 

17 PRINTSPC(4)"{RVS}{ 34 SPAZI}{OFF}" :rem 

18 PRINTSPC(4)"{ 4 GIU'}ATTENDERE PREGO" :rem 

20 GOTO 10000 : rem 

25 TI$*"000000" :rem 

30 CLR:PRINT"{CLR}"CHR$(158) :rem 


223 

91 


237 

25 

DI 

207 

67 

216 

69 

70 

144 

72 

2 

140 

201 

210 
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35 GOT022000 :rem 149 

40 PRINT" {HOME} { 2 GIU’H 7 SPAZI}{RVS}U{ 29 *}l{OFF}" 

:rem 108 

41 PRINT"{ 7 SPAZI}{RVS}B{OFF}{ 29 SPAZI}{RVS}B{OFF}" 

:rem 2 

42 PRINT" { 5 SPAZI}{RVS}U{ 29 *U{OFF) {RVS)B{OFF}" 

:rem 159 

43 PRINT"{ 5 SPAZI}{RVS}B{OFF}{ 29 SPAZI}{RVS)B{OFF> 

{RVS}B{0FF}" “ srem 106 

44 PRINT^{ 3 SPAZI){RVS}0{ 29 *)l{OFF) {RVS)B(OFF) {RVS) 

B{OFF)" ” :rem 7 

45 PRINT"{ 3 SPAZI){RVS)B{OFF){ 29 SPAZI){RVS)B{OFF) 

{RVS)B{OFF) {RVS}B{OFF)" - :rem 210 

46 PRINT"{ 3 SPAZI) RVS)B{OFF){ 2 SPAZI)*** ELENCO OPZION 
I ***{ 5 SPAZI}{RVS)BTOFF) {RVS}B{OFF) {RVS)B{0FF}" 

:rem 173 

47 PRINT"{ 3 SPAZI){RVS)B{OFF}{ 29 SPAZI){RVS)B{OFF} 

{RVS)B{OFF) {RVS}B{OFF}" “ srem 212 

48 PRINT ir { 3 SPAZI) {RVS)B{OFF} {RVS)0.{OFF} INTRODUZIONE 
FUNZIONE{ 4 SPAZI}{RVS)B{OFF) {RVS)B{OFF} {RVS)B{OFF}" 

:rem 239 

49 PRINT"{ 3 SPAZI}{RVS)B{OFF) {RVS}1.{OFF} CAMPO DI ESIS 
TENZA{ 7 SPAZI}{RVS}BTOFF} {RVS)B{0FF} {RVS}B{OFF}" 

:rem 140 

50 PRINT"{ 3 SPAZI}{RVS}B{OFF} (RVS)2.{OFF) INTEGRALE DEF 
INITO{ 7 SPAZI}{RVS}bT0FF) {RVS)B{OFF} {RVS)B{0FF}" 

:rem 191 

51 PRINT"{ 3 SPAZI}{RVS)B{OFF) {RVS)3.{OFF} DERIVATA PRIM 
A E SECONDA {RVS)B{0FF} {RVS)B{OFF} {RVS)B{0FF}" 

:rem 223 

52 PRINT"{ 3 SPAZI){RVS)B{OFF} {RVS)4.{OFF) MASSIMI E MIN 
IMI{ 9 SPAZI){RVS}B{OFF} {RVS)B{0FF} {RVS}B{OFF)" 

:rem 241 

5.3 PRINT" { 3 SPAZI) {RVS)B{OFF} {RVS)5.{OFF} SOLUZIONI REA 
LI{ 10 SPAZI}{RVS}B{OFF} {RVS}B{OFF} {RVS)B{0FF}" 

s rem 17 

54 PRINT"{ 3 SPAZI){RVS}B{OFF) {RVS)6.{OFF} GRAFICO FUNZI 
ONE{ 9 SPAZI){RVS}B{OFF} {RVS)B{OFF} {RVS)B{0FF}" 

:rem 67 

55 PRINT"{ 3 SPAZI){RVS)B{OFF} {RVS)7.{OFF} GRAFICO DI F’ 


(X){ 9 SPAZI){RVS}B{OFF} {RVS)B{OFF) {RVS)B{0FF}" 

:rem 122 

56 PRINT"{ 3 SPAZI){RVS)B{OFF} {RVS)8.{OFF} PAGINA GRAFIC 
A{ 11 SPAZI){RVS}B{OFF} {RVS)B{0FF} {RVS)B{0FF}" 

:rem 123 

57 PRINT"{ 3 SPAZI){RVS)B{OFF} {RVS)9.{OFF} PER USCIRE 

{ 15 SPAZI HrvS)B{OFFT {RVS)B*K{OFF}" : rem 183 

58 PRINT"{ 3 SPAZI)TRVS)B{OFF}{“7? SPAZI}{RVS}B{OFF) 

{RVS}B{OFF}" _ : rem 112 
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59 PRINT t { 3 SPAZI}{RVS}B{OFF} TEMPO!{ 

2 

SPAZI}";E$;" 

s"?0 

$ 

I"!"ST$I"{ 12 SPAZl}{RVS}B*K{OFF}" 


: rem 

75 

60 PRINT"{ 3 SPAZI}{RVS}B{0FFTT 29 SPAZI}{RVS}B{OFF}" 






: rem 

3 

70 PRINT"{ 3 SPAZI}{RVS}J{ 29 *}K{OFF}" 


:rem 

49 

99 GETA$tIFA$<"0"ORA$>"9 ir THENl50 


:rem 

31 

100 

IFA$«"0"THENGOTO 

200 


: rem 

48 

no 

IFA$*"1"THENGOTO 

226 


:rem 

58 

120 

IFA$ »"2"THENGOTO 

510 


:rem 

56 

140 

IFA$-"3"THENGOTO 

1030 


:rem 

105 

150 

IFA$="4"THENGOTO 

800 


: rem 

63 

160 

IFA$«"5"THENGOTO 

1160 


:rem 

113 

170 

IFA$ *"6"THENGOTO 

245 


: rem 

70 

175 

IFA$*"7"THENGOTO 

1300 


:rem 

117 

180 

IFA$ *"8"THENGOTO 

640 


: rem 

72 

185 

IFA$*"9"THENGOTO 

760 


2 rem 

81 

190 

GOT022000 



2 rem 

199 

191 

rem*** subr. INTRODUZIONE FUNZIONE 

** trem 

211 

192 

REM 



2 rem 

128 

200 

PRINT"{CLR}"tPRINTCHR$(30)tPRINT"{ 

3 

DES}{ 3 GIU 1 

}*** 


INTRODUZIONE DELLA FUNZIONE ***" 


2 rem 

125 


205 PRINT"{ 3 DES}{ 2 GIU'}INTRODUCI CORRETTAMENTE LA FUN 
ZIONE" :rem 106 

210 PRINT" { 3 DESHGIU'}USANDO X COME VARIABILE" : FORI«OTO 
1500:NEXTI srem 163 

220 INPUT"{CLR}{GIU'}{ 2 SPAZI}Y«"?B$:PRINT"{GIU'}{BLK}20 
000DEFFNY(X)*";B$:PRINT"RUN30{HOME}" :rem 154 

223 POKEl98,2:POKE631,13:POKE632,13:END :rem 254 

225 Y-SIN(X)/X :rem 73 

226 PRINT" {CLR} { 3 GIU'}{ 3 DES}** ASSEGNA IL CAMPO DI ES 

ISTENZA **" :rem 122 

227 PRINT"{ 2 GIU'}{DES}{RVS} 1. {OFF} SE IL CAMPO E' TUT 

TO R" treni 169 

228 PRINT"{DES}{RVS} 2. {OFF} PER DEFINIRE IL CAMPO DI"SP 

C(16)"NON-ESISTENZA" :rem 253 

229 GETFP$: IFFP$<"1 "ORFP$>"2"THEN229 treni 70 

230 ONVAL(FP$) G0T0231 ,235 treni 181 

231 PRINT"{CLR}{GIU'}"tPRINT"{GIU'}{BLK}365"tPRINT"565"tP 

RINT"842"tPRINT"1195"tPRINT"1535" trem 93 

232 PRINT"RUN30{HOME}" :rem 211 

233 POKEl98,6tPOKE631,13tPOKE632,l3tPOKE633,l3tPOKE634,l3 

t POKE635,13 1 POKE636,13 trem 76 

234 END trem 112 

235 INPUT"{CLR}{GIU'} t"?C$tPRINT"{GIU'}{BLK}365IF";C$;"T 

HENGOTO400" :rem 228 

236 PRINT"565IF";C$;"THENG0T0585"tPRINT"842IF";C$;"THENNE 

XT" trem 141 

237 PRINT"1195IF";C$ ; "THENNEXT"tPRINT"!535IF";C$;"THENGOT 

Ol580"tPRINT"RUN30{HOME}" srem 144 

238 POKEl98,61POKE631,131POKE63Z,131POKE633,131POKE634,13 

t POKE635,13 1 POKE636,13 trem 81 
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239 END : rem 117 

240 REM*** SUBR. OUTPUT FUNZIONE *** srem 63 

245 CLR:PRINT"{CLR}":PRINTCHR$(30)*{ 3 DES}{ 2 GIU'}*** G 
RAFICO DI F(X) ***" :rem 198 

250 PRINT"{ 3 DES}{GIU'}INTRODUCI I PARAMETRI":PRINT 

:rem 54 

260 INPUT"RISOLUZIONE (1/1000) :";RlSPRINT:IFRl-0THEN245 

:rem 131 

270 INPUT"AMPIEZZA VERTICALE (1/I00):";AVI :PRINT:rem 179 

280 INPUT"AMPIEZZA ORIZZONTALE (1/I00):";AOl:PRINT 

: rem 111 

285 INPUT"INTERVALLO (INF./ SUP.) :";Il,S1SPRINT:rem 138 

290 INPUT"COORDINATE ORIGINE (X/Y) :";U,V:H-U+160:K-V+l00 
:PRINT :rem 82 

296 PRINT"{ 2 GIU’}{ 2 SPAZI}{RVS} 1.{OFF} PER ELENCO OPZ 

IONI{ 10 SPAZI}" :rem 92 

297 PRINT"{ 2 DES} RVS} 2.{OFF} PER USCIRE DALLA PAGINA G 

RAFICA " srem 94 

298 PRINT"{ 2 SPAZI}{RVS} 3.{OFF} PER GRAFICO" :rem 91 

300 GETFR$:IFFR$<"1"ORFR$>"3"THEN300 :rem 57 

301 ONVAL(FR$)GOTO 410,420,303 :rem 115 

303 PRINT"{CLR}{ 3 GIU'}{ 3 DES}{RVS} 1. {OFF} PER NUOVO 

SCHERMO" srem 22 

304 PRINT"{ 3 DES}{RVS} 2. {OFF} PER SOVRAPPORRE ALLA PRE 

CEDENTE{ 9 SPAZI}FUNZIONE" srem 116 


305 

GETFR$: IFFR$<"1"ORFR$>"2"THEN305 :IFFR$-"1 

"THENGOTO308 



:rem 

124 

306 

IFFR$*"2"THENGOTO309 

:rem 

155 

308 

CONT 

:rem 

207 

309 

GOSUB20600 

:rem 

20 

310 

GOSUB21410 

:rem 

12 

345 

VERIFYl 

:rem 

162 

347 

LET 1,0 

:rem 

16 

350 

FORX-I1TOS1STEP 1/Rl 

srem 

212 

367 

GOSUB20000:Y-FNY(X) 

:rem 

120 

370 

Yl »Y*AV1+K:XI«X*AOl+H 

srem 

216 

380 

IFXl>3190RX1<0THEN400 

srem 

231 

390 

IFYl>1990RY1<0THEN400 

srem 

240 

395 

WAIT XI,Yl 

srem 

21 

400 

NEXTX:GOTO 300 

srem 

49 

410 

PRINT"{CLR}"SVERIFY 0:GOTO30 

srem 

14 

420 

PRINT"{CLR}"SVERIFY 0:GOTO245 

srem 

71 

500 

REM 

srem 

121 

501 

REM*** SUBR. INTEGRALE *** 

srem 

123 

502 

REM 

srem 

123 


510 CLR:PRINT"{CLR}"CHR$(30)SPRINT"{ 3 GIU'}{ 2 DES}*** I 
NTEGRALE DEFINITO ***" srem 43 

520 INPUT"{GIU'}{ 2 DES}NUMERO DI INTERVALLI{ 2 SPAZI}(10 
-1000) ";Q:IFQ-0THEN520 srem 140 

530 PRINT"{ 2 GIU'}{ 2 DES}-ESTREMI DI INTEGRAZIONE-" 

:rem 84 
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540 PRINT" {GIU'}{ 3 DES}{ 3 SPAZI}INF. { 2 SPAZI}- 

{ 3 SPAZI}SUP." :rem 228 

550 INPUT" {GIO'H 6 DES}";NjINPUT"{SU}{ 20 DBS}" ;Ps J- (P-N 

)/Q :rem 129 

560 FORX-NTOPSTEPJ :rem 222 

570 GOSUB20000:Yl«FNYl(X)sY-FNY(X) :rem 60 

580 F-F+(((Y+Yl)*J)/2):F«INT(F*lE5+.5)/lE5 :rem 227 

585 NEXTX:PRINT"{ 2 GIU'}( 2 DBS}L'INTEGRALE E' :";F 

:rem 213 


590 PRINT"{GIU'}{ 2 DES}{RVS) 1. {OFF} PER ELENCO OPZIONI 

« • 1 in 



•• 





:rem 

130 

600 

PRINT"{ 2 DBS}{RVS} 2. {OFF} PER 

UN ALTRO 

INTEGRALE” 







srem 

76 

610 

GETM$:IFM$<"1"ORM$>"2"THBN610 





srem 

95 

620 

ONVAL(M$)GOTO 630,510 





srem 

no 

630 

GOTO30 





srem 

53 

640 

REM 





srem 

126 

650 

REM*** SUBR. PAGINA GRAFICA *** 





srem 

130 

660 

REM 





srem 

128 

670 

PRINT"{CLR}"CHR$(30): FORI-0TO2000:PRINT" 

{ 

3 

GIU 1 } 



{ 3 DBS}*** PAGINA GRAFICA ***" 





srem 

32 

680 

PRINT"{ 4 GIU'}{ 3 DES}{RVS} 1. 

{OFF} 

PER 

ELENCO OPZI 


ONI" 





srem 

210 

690 

PRINT"{ 3 DES}{RVS} 2. {OFF} PER 

PAGINA 

GRAFICA" 








srem 

79 

710 

GETQ$!IFQ$<"1"ORQ$>"3"THEN710 





srem 

no 

720 

ONVAL(Q$)GOTO 740,730 





srem 

121 

730 

VERIFYlSGOTO710 





srem 

171 

740 

PRINT"{CLR}"S VERIFY0:GOTO30 





srem 

20 

750 

REM 





srem 

128 

751 

REM*** SUBR. FINE PROGRAMMA *** 





srem 

175 

752 

REM 





srem 

130 

760 

PRINT"{CLR}{ 7 GIU'}{ 3 DES}*** 

VUOI 

FINIRE 

?(Y/N) 

** 


*» 





srem 

49 

765 

GETRF$: IFRF$-""THEN765 





srem 

21 

770 

IFRF$-"Y"THENSYS64738 





srem 

253 

780 

IFRF$-"N"THENGOTO30 





srem 

132 

790 

IPRF$O"Y"0RRF$O"N"THEN765 





srem 

60 

795 

REM 





srem 

137 

796 

REM *** SUBR. MASSIMI E MINIMI *** 




srem 

11 

797 

REM 





srem 

139 

800 

PRINTCHR$(30)"{CLR}{ 3 GIU'}{ 3 DES}*** 

MASSIMI E 

MIN 


IMI ***" 





srem 

82 


801 PRINT"{GIU'}{ 3 DBS}ASSEGNA L'INTERVALLO DI RICERCA" 

:rem 205 


802 PRINT"{GIU'}{ 3 DES}INF.{ 3 SPAZI}- 

{ 2 SPAZI}SUP." :rem 243 

803 INPUT"{ 3 DBS}";l:INPUT”{SU}{ 23 DES}";S :rem 18 

805 INPUT"{GIU'}{ 3 DBS)SUDDIVISIONI (10-1000) :";C:IFC-0 

THEN800 : rem 11 

810 J»(S-I)/C srem 172 


25 





:rem 
:rem 
:rem 
:rem 
:rem 
: rem 
:rem 
: rem 
:rem 


251 

221 

149 

19 

91 

176 

177 
172 
156 
110 


820 PRINT" {CLR} { 2 GIU'H 3 DES} {RVS) { 2 SPAZI}ASCISSA 

{ 2 SPAZI)-{ 2 SPAZ1}ORDÌNATA{ 2 SPAZI){OFF}" 

t rem 

840 FORX-ITOSSTEPJ 
843 IFX>-S-JTHEN920 
845 GOSUB20000 

850 Y-FNY(X):Yl-FNYl(X):Y2-FNY2(X) 

870 IFY<Y1ANDY>Y2THENNEXT 

871 IFY>Y1ANDY<Y2THENNEXT 

875 IFY>Y1ANDY>Y2THENGOSUB970 :GOTO 890 

880 IFY<Y1ANDY<Y2THENGOSUB970 :GOTO 900 

890 PRINT"(GRN){GIU 1 ){ 2 DES)";X 

891 PRINTSPC(19)"(SO)";YlPRINTSPC(32)"{YEL}{SU)MAX.":NEXT 

:rem 156 

900 PRINT"{GRN)(^10'){ 2 DES)";X :rem 102 

901 PRINTSPC(19)"{SU}";Y$PRINTSPC(32)"{YEL}{SOjMIN."sNEXT 

:rem 146 

920 PRINT" {GRN} { 2 GIU'H 3 DES)HO FINITO I " SPRINT" {GIU ' } 

{ 3 DES){RVS} 1. {OFF} PER ELENCO OPZIONI" :rem 191 

930 PRINT"{ 3 DES){RVS} 2. {OFF} PER UN ALTRO INTERVALLO" 

• j» 0gpQ 212 

940 GETRP$sIFRP$<" 1"ORRP$>"2"THEN940 srem 

950 IFRP$«"1"GOTO30 srém 

960 IFRP$-"2"GOTO800 srem 

970 Y-INT(Y*lE5+.5)/lE5sX«INT(X*lE5+.5)/lE5sRBTURN 

srem 

1000 REM srem 

1010 REM*** SUBR. DERIVATE *** srem 

1020 REM srem 

1030 PRINTCHR$ ( 30 ) " {CLR} { 3 GIU'H 3 DBS}*** DERIVATA PRI 
MA E SECONDA ***" 8rem 110 

1040 INPUT"{ 2 GIU'}{ 3 DES}ASSEGNA L'ASCISSA DEL PUNTO S 
"fX srem 198 

1050 GOSUB20000sJ-lE-5sY-FNY(X) srem 55 

1060 D1-FNY3(X)SD2-FNY4(X) srem 249 

1065 Dl-INT(Dl*lE5+.5)/lE5sD2-INT(D2*lE5+.5)/lE5srem 72 
1070 PRINT"{ 2 GIU'){ 3 DES}F(X)»";YsPRINTSPC(21)"{SU} 

{RVS}{YEL} VALORE PUNZIONE{ 2 SPAZI}{OFF}" srem 129 

1080 PRINT"{GRN}{GIU'}{ 3 DES}F'(X)■"jDl5PRINTSPC(21)" 
{SU}{RVS}{YEL} DERIVATA PRIMA{ 3 SPAZI){OFF}" 

srem 100 

1090 PRINT"{GRN}{GIU'}{ 3 DES}F" (X)-";D2sPRINTSPC(21)" 

{SU}{RVS}{YEL} DERIVATA SECONDA {OFF} srem 239 

1100 PRINT" {GRN} { 3 GIU'H 3 DES} {RVS} 1. {OFF} PER ELENC 
O OPZIONI"SPRINT"{ 3 DBS){RVS} 2. {OFF} PER UN ALTRO 
PUNTO" srem 11 

1110 GETQ$sIFQ$<"1"ORQ$>"2"THENl110 srem 195 

1120 IFQ$«"l"THENGOTO30 srem 

1125 IFQ$*"2"THENGOTOl030 srem 

1130 REM srem 

1140 REM*** SUBR. SOLUZIONI REALI *** 8rem 


106 

65 

120 

194 

165 

96 

167 


69 

172 

169 

73 


26 



1150 REM :rem 171 

1160 CLR:PRINTCHR$(30)"{CLR}{ 3 GIO'}{ 3 DBS}*** SOLUZION 
I REALI ***" irem 187 

1170 PRINT" { 2 GIU'H 3 DBS}ASSEGNA L'INTERVALLO" SPRINT" 
{GIU' } { 3 DBS}INF. -SUP." srem 27 

1180 INPUT"{GIU'}{ 3 DBS}";IsINPUT"{SU}{ 20 DES}";S 

:rem 251 

1181 INPUT"{GIU'}{ 3 DBS)SUDDIVISIONI (10-100):"jC:IFC<«0 

THEN1160 :reo 117 

1182 J-(S-I)/C •rem 

1185 PRINT"{CLR}{ 3 GIU'H 3 DBS}{RVS}{YEL} SOLUZIONI 

{OFF}" 


223 


1190 

1191 
1200 
1205 
1210 
1215 
1220 


FORX-ITOSSTEPJ 

IFX>-S-JTHEN1230 

GOSUB20000 

Y-FNY(X) 

IFABS(Y)<.05 THENGOTOl220 
IFABS(Y)>.05 THENNEXT 


:rem 
:rem 
:rem 
: rem 
:rem 
: rem 


203 

12 

237 

53 

244 

207 

23 


X«INT(X*lE5+.5)/lE5:PRINT"{GRN} {GIU'H 3 DES}X»";X:X 
-X+10*J srem 11 

1225 NEXT :rem 9 

1230 PRINT"{GRN}{ 2 GIU'}{ 3 DES}HO PINITOI":PRINT"{GIU'} 
{ 3 DBS){RVS} 1. {OFF} PER ELENCO OPZIONI" srem 234 
1240 PRINT"{ 3 DBS}{RVS} 2. {OFF} PER UN ALTRO INTERVALLO 



II 

srem 

255 

1250 

GETL$:IFL$<"1"ORL$>"2"THENl250 srem 

190 

1260 

IFL$■"1"THENGOTO30 

:rem 

69 

1270 

IFL$-"2"THENGOTOl 1 60 

srem 

172 

1280 

REM 

srem 

175 

1290 

REM*** GRAFICO DERIVATA 

PRIMA *** srem 

112 

1295 

REM 

srem 

181 

1300 

CLR:PRINTCHR$(30)"{CLR}{ 

3 GIU'}{ 3 DBS}*** GRAFICO 


DI F'(X) ***" 

« srem 

28 

1305 

PRINT"{GIU'}INTRODUCI I 

PARAMETRI" 5rem 

74 

1310 

INPUT"{GIU'}RISOLUZIONE 

(10/1000) :";R1 : IFRl<-0THENl 3 


00 

srem 

143 


1320 INPUT"{GIU'}AMPIEZZA VERTICALE (1/100):"?AVI 

:rem 42 

1330 INPUT"{GIU’}AMPIEZZA ORIZZONTALE (1/I00):"; AOl 

:rem 230 

1340 INPUT" {GIU'}INTERVALLO (INF./SUP. ) s" ; I,S srem 155 
1350 INPUT"{GIU'}COORDINATE ORIGINE (X/Y) :";U,V:H-U+160: 

K-V+100SPRINT :rem 145 

1370 PRINT"{ 2 GIU*}{RVS} 1. {OFF) PER ELENCO OPZIONI" 

:rem 134 

1380 PRINT"{RVS} 2. {OFF} PER USCIRE DALLA PAGINA GRAFICA 
" srem 78 

1390 PRINT"{RVS} 3. {OFF} PER GRAFICO DI F'(X)" srem 40 

1400 GETA$:IFA$<"1"ORA$>"3"THENl400 :rem 152 

1410 ONVAL(A$)GOTO 1590,1600,1420 :rem 234 

27 




1420 

PRINT" {CLR){ 2 GIU'M 3 DES}{RVS} 

1. {OPP} PER NUOVO 


SCHERMO" 


:rem 

54 

1430 

PRINT" { 3 DESHRVS} 2. {OPP} 

PER 

SOVRAPPORRE ALLA PR 


BCSDENTE{ 9 SPAZI}FUNZIONE" 


:rem 

165 

1440 

GETZ$ sIPZ$<"1"ORZ$>"2"THENl440 

:rem 

234 

1450 

IPZ$-"1"THENl470 


:rem 

132 

1460 

IPZ$-"2"THENl 480 


:rera 

135 

1470 

CONT 


:rem 

0 

1480 

GOSUB20600 


:rem 

69 

1490 

GOSUB21410 


:rem 

70 

1500 

VERIPY1 


:rem 

204 

1510 

LET 1,0 


: rem 

57 

1520 

FORX-ITOSSTEP 1/R1sJ-lE-5 


:rem 

59 

1537 

GOSUB20000 SDÌ -PNY3(X) 


:rem 

247 

1540 

Y1-Di*AVl+KsXl-X*AOl+H 


:rem 

36 

1550 

IPX!>3190RX1<0THEN400 


:rem 

23 

1560 

IPY1>1990RY1<0THEN400 


. :rem 

32 

1570 

WAIT XI,Yl 


:rem 

65 

1580 

NEXTXsGOTO1400 


:rem 

157 

1590 

PRINT"{CLR}"SVERIPY 0sGOTO30 


:rem 

72 

1600 

PRINT"{CLR}"sVERIPY 0sGOTO!300 

:rem 

161 

10000 A-0 

• 

:rem 

159 

10030 POR 1-40960 TO 49151 s POKE 

I,PEEK(I)s NEXT I 





:rem 

106 


10050 POR I» 41150 TO 41152 : READ N s POKE I,N s A-A+N : 

NEXT I : rem 2 

10060 READ L,H : POKE 40988,L : POKE 40989,H: A-A+L+H 

:rem 143 

10070 DATA 72,85,197,75,196 :rem 69 

10090 POR 1-41189 TO 41192 s READ N : POKE I,N S A-A+N : 

NEXT I • r ein 2 2 

10100 READ L,H: POKE 41008,L : POKE 41009,H : A-À+L+H 


10110 

10130 

10140 

10150 

10170 

101 80 

10190 

10210 

10220 

10240 

10250 


:rem 106 

DATA 80,76,79,212,130,196 :rem 247 

POR 1-41225 TO 41228 : READ N : POKE I,N : A-A+N : 
NEXT I : rem 8 

READ L,H : POKE 41024,L : POKE 41025,H: A-A+L+H 


:rem 106 

DATA 87,73,80,197,53,196 :rem 215 

POR 1-41201 TO 41206 : READ N : POKE I,N : A-A+N : 
NEXT I s rem 2 

READ L,H : POKE 41014,L : POKE 41015,H : A-A+L+H 


:rem 108 

DATA 83,67,82,69,69,206,11,196 :rem 3 

POR 1-42042 TO 42044 : READ N : POKE I,N : A-A+N : 
NEXT I :rem 2 

DATA 76,0,196 srem 164 

POR 1-50176 TO 50480 s READ N : POKE I,N : A-A+N s 
NEXT I : rem 15 

IP A039040 THEN PRINT "ERRORE NEI DATA ili!" 

srem 139 


28 



10260 

10280 

10300 





:rem 

185 

20100 

DEFPNYl(X)«FNY(X+J) 

srem 

209 

20200 

DEFFNY2(X)«FNY(X-J) 

srem 

213 

20300 

DEFFNY3 (X) « (FNY (X+J) -FNY(X-J) )/ (2*J) 

srem 

134 

20400 

DEFFNY4(X)-(FNY3(X+lE-1)-FNY3(X-1 E-1))/(2E-1) 

:rem 

49 

20500 

RETURN 

srem 

215 

20600 

PRINT" { 2 GIU'M 3 DBS)VUOI L'ASSE X 

(S/N)?" 

srem 

220 

20610 

GBTB$ 

srem 

63 

20620 

IFB$«"S"THEN20900 

srem 

237 

20630 

IFB$■"N"THENRETURN 

srem 

206 

20640 

IFB$<>"S"ORB$<> , 'N"THEN2061 0 

srem 

61 

20900 

IFK<OORK>199THENRETURN 

29 

srem 

29 



21000 

VERIFY1 

:rem 

249 

21100 

LET 1,0 

: rem 

102 

21200 

FORW-OTO31 9 

:retn 

224 

21300 

HAIT W,K 

:rem 

249 

21400 

NEXTW:VERIFY0:RETURN 

:rem 

230 

21410 

PRINT"{GIU’M 3 DBS}VUOI L'ASSE Y 

(S/N)?" :rem 

204 

21420 

GETB$:IFB$""S"THEN21450 

:rera 

109 

21430 

IFB$«"N"THENRETURN 

:rem 

205 

21440 

IFB$O"S''0RB$<>"N"THEN21 420 

: rem 

60 

21450 

IFH<OORH>319THENRETURN 

:rem 

18 

21460 

VERIFYl 

:rem 

3 

21470 

LET 1,0 

:rem 

112 

21500 

FORZ-OTOI99 

:rem 

236 

21600 

WAIT H,Z 

:rera 

252 

21700 

NEXT Z 

srem 

147 

21800 

RETURN 

srem 

219 

22000 

T$«RIGHT$(TI$,2) 

srem 

187 

22010 

0$*MID$(TI$,3,2) 

srem 

114 

22020 

E$*LEFT$(TI$,2) 

srem 

91 

22030 

GOTO40 

srem 

148 

READY, 

B 

srem 

173 


Notate che i listati contengono "parole" rac¬ 
chiuse tra parentesi graffe ( }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


(CLR) 
(HOME) 
(SO) - 
(GIU 1 ) 
(Sin) 
(DES) 
(UVE) 
(OPP) 

( BLU ) 
(MHT) 
(REO) 









(CYH ) 
(PUR) 
(CRN ) 
(BLU) 
( YEL) 
«1>I 
l<2>) 
(< 3 >) 
(<♦>) 
I < 5 > 1 
C<«>) 





>) 

>] 


am 

GJO 




30 







QUALCOSA DI SUPER, DI INEDITO, 

DI IRRESISTIBILE 









IN EDICOLA 
JACKSON SOFT 
SERIE ORO 


I giochi esclusivi per 
Commodore 64 e Spedaim 48 K 
importati dall’Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, al 
già fatto, al... già registrato. 


Coni in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 








